Quand il y a plusieurs fichiers .csv

Note: Si vous n'avez pas commenté MainDocument.Close SaveChanges:=False dans le code VB, faites-le maintenant afin de pouvoir faire un test. Des détails peuvent être trouvés dans 1. Écrire le code VB (Étape 9).

Dans notre exemple précédent nous avons créé le rapport de publipostage suivant, en extrayant les données depuis un seul fichier .csv appelé eloans.csv, qui contient les informations de Personnes / Organisations et Prêts/Emprunts :

Dans 1. Écrire le code VB nous avons établit une connexion entre notre rapport de publipostage et la principale source de données, eloans.csv. Toutes les données affichées dans le rapport ci-dessus sont extraites de ce fichier .csv, et contiennent les détails sur le prêt et l’emprunteur.

Cependant, nous voulons également inclure des détails sur les objets prêtés, mais ces données ne se trouvent pas dans eloans.csv ; elles sont extraites d'un champ appelé Objet : (Objet prêté), qui est un champ annexe et une table de valeurs. Comme nous l'avons vu, les valeurs d'un champ qui est à la fois un champ joint ET une table de valeurs seront toujours exportées dans un fichier .csv séparé. Afin d'inclure les données de ce deuxième (troisième, n-ième) fichier .csv, nous devons ajouter du code Visual Basic à notre rapport de publipostage.

Pour éditer le document de rapport principal dans Word :

1. Ouvrir le document de rapport principal (Prêts_Emprunts.doc dans cet exemple) et activer les macros quand c’est nécessaire.
2. Si nécessaire, sélectionner ALT+F9 pour afficher les codes de champ :

   

3. Nous allons inclure les détails sur l'objet dans une table. Placez le curseur à l'endroit où la table doit s'afficher :

   

4. Pour cet exemple, nous allons insérer un tableau à deux cellules sur une seule ligne :

   

5. Avec le curseur dans la première cellule, cliquez sur Insérer des champs Fusionner dans la barre d'outils Publipostage.

   Note: Si la Barre d'outils de Publipostage ne s'affiche pas, sélectionner Affichage>Barres d'outils>Publipostage dans la barre de menu de MS Word.

   La boîte de dialogue Insérer un champ de fusion s'affiche.

6. Sélectionner le champ clé qui lie le fichier .csv principal (eloans.csv dans cet exemple) et le tableau joint duquel nous souhaitons extraire les données (ObjObjec.csv dans cet exemple). Dans cet exemple, nous sélectionnons eloans_key :

   

   Voir Étape 1 : Créer un rapport dans EMu pour les détails sur quels fichiers .csv sont générés dans cet exemple.

7. Sélectionner Insérer et ensuite fermer la boîte Insérer un champ de fusion :

   

8. Assurez-vous que la police de caractères de ce tableau correspond à la police du reste du texte dans votre document.

Ensuite nous devons ajouter le code Visual Basic.

1. Sélectionnez Outils>Macro>Éditeur Visual Basic (ALT+F11) dans la barre de menu.

   L'éditeur Microsoft Visual Basic s'ouvre :

   

2. Dans cet exemple, nous saisissons le code suivant immédiatement après le code qui connecte notre rapport de publipostage à la source de données principale.

   Une explication du code est incluse dans les commentaires :

   Dim key As String

   Dim table As Word.table

   Dim objects As String

   Dim connection As New ADODB.connection

   Dim recordset As New ADODB.recordset

   '

   ' Connectez-vous au DSN que nous allons utiliser

   connection.Open "DSN=EMu Loans ;"

   '

   ' Ce code parcourt chaque table ajoutée au document Word afin de la rempli0r

    'avec des données. Dans cet exemple nous n’avons qu’une seule table.

   For Each table dans ActiveDocument.Tables

    ' Notre table a deux colonnes

    If table.Columns.Count = 2 Then

    '

    ' Dans la première cellule d'une table de notre document de publipostage, nous avons inséré

    ' le champ clé qui associe les différents fichiers .csv (dans notre exemple, eloans_key).

    ' Nous devons obtenir la valeur de cette clé afin d'interroger le deuxième (troisième, n-ième) fichier .csv.

    ' Ce code prend la valeur de la clé de la première cellule de la table

    key = table.Cell(1, 1).Range.Text

    key = Trim(Left(key, Len(key) - 2))

    objects = ""

    '

    ' Ce code interroge le deuxième fichier .csv

    recordset.Open "select * from ObjObjec.csv where eloans_key = " & key, connection

    '

    ' Ce code remplit la table de notre rapport de publipostage avec les données

    ' (du champ Données sommaires de notre second fichier .csv dans cet exemple)

    ' une ligne pour chaque enregistrement

    While Not recordset.EOF

    If objects <> "" Then

    objects = objects & Chr(10)

    End If

    objects = objects & recordset("SummaryData")

    recordset.MoveNext

    Wend

    table.Cell(1, 2).Range.Text = objects

    recordset.Close

    '

    ' Ce code supprime ensuite la colonne contenant la eloans_key de notre table de publipostage

    ' afin qu'elle ne s'affiche pas dans le rapport de publipostage

    table.Columns(1).Select

    Selection.Columns.Delete

    '

    ' Cela supprime les bordures de la table

    table.Borders.Enable = False

    End If

   Next table

   '

   ' Fermer nos connexions

    connection.Close

   Note: Dans cet exemple, nous remplissons la table avec une valeur (Données sommaires) pour chaque objet du fichier .csv associé (un prêt peut concerner un ou plusieurs objets). Ce code va générer une table statique : une table comportant une seule ligne dans laquelle sont répertoriés tous les enregistrements associés, une ligne pour chaque enregistrement d'objet (voir Étape 4 : Lancer le publipostage pour un exemple d'affichage de ce rapport de publipostage).
   Si nous voulions afficher deux valeurs pour chaque objet dans le fichier .csv associé (par exemple, NEI et Données sommaires), une table statique pourrait être un mauvais choix, car nous aurions besoin de deux colonnes pour contenir les deux valeurs, mais comme nous n’avons qu’une seule ligne, les valeurs dans les deux colonnes pourraient se désynchroniser. Ce dont nous avons besoin dans ce cas, c'est d'une ligne pour chaque enregistrement associé : cela nécessite du code pour générer une table dynamique.

3. Sauvegarder et fermer le document de rapport principal.
4. À 1. Écrire le code VB nous avions modifié le code VB en le commentant dans le but de faire un test MainDocument.Close SaveChanges:=False. Avant de pouvoir finaliser le rapport, nous devons éditer le code VB pour supprimer l'apostrophe.